perm filename EINIT.CMD[SS,SYS]2 blob sn#411900 filedate 1979-01-22 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE SRCCOM↔
C00003 ENDMK
C⊗;
αXDEFINE SRCCOM⊗↔
αXTERSE⊗C
αXSILENT⊗C
αXstopzero⊗C
αfHEAD⊗CαAαLαβ0αA	⊗;Put HEAD at top of page, if in file
αXSTOPONE⊗C
αβ∞αZSRCCO2⊗C
α.		⊗;Write out file before quitting
αXreadonly⊗C	⊗;In case user says ESC I now, don't let typeahead diddle file
αXbeep⊗C
αβXSAY Type ESC I within 5 secs to stop here.⊗C
α5αV		⊗;Give viewer a chance to object
αXquit⊗C	⊗;Exit during macro!
αβ⊗↓

αXDEFINE SRCCO2⊗C
αβ0αXIFLT CHARS.⊗C
αCαCαEαUαUαS[αK⊗↔DIF/S/C/D/F/O←α⊗=αDαS[αK⊗↔,α⊗=αD⊗↔αβ⊗↓

αXSET $←SRCCOM⊗C	⊗;Shorter macro name of dollar sign